db <- read.csv("Data Export Summary.csv")
db
##            Molecular.Type  X.ray   NMR   EM Multiple.methods Neutron Other
## 1          Protein (only) 142419 11807 6038              177      70    32
## 2 Protein/Oligosaccharide   8426    31  991                5       0     0
## 3              Protein/NA   7498   274 2000                3       0     0
## 4     Nucleic acid (only)   2368  1378   60                8       2     1
## 5                   Other    149    31    3                0       0     0
## 6  Oligosaccharide (only)     11     6    0                1       0     4
##    Total
## 1 160543
## 2   9453
## 3   9775
## 4   3817
## 5    183
## 6     22
round((sum(db$X.ray)/sum(db$Total))*100, 2)
## [1] 87.53
round((sum(db$EM)/sum(db$Total))*100, 2)
## [1] 4.95

Q1 87.53% and 4.95% respectively

round(db$Total[1]/sum(db$Total) *100, 2)
## [1] 87.35

Q2 87.35%